home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / util / wb / background.lha / BackgroundV2.1 / background-install < prev    next >
Text File  |  1997-04-10  |  20KB  |  598 lines
  1. ; Install script for Background
  2. ; V1.1 04.08.1997
  3.  
  4. ;--------------------------------- Translators --------------------------------
  5. ;Anyone who wants to translate the texts used in this scipts is hereby
  6. ;encouraged to do so. Below is a template use this and the English texts as a
  7. ;template for your translation. When fininshed, please send me the script for
  8. ;including it in the next release.
  9. ;
  10. ;   Roland Haas
  11. ;   Mühlweg 16
  12. ;   77948 Friesenheim
  13. ;   GERMANY
  14.  
  15. ;--- cut here --8<------insert point is marked later----------------------------
  16.  
  17. ;--- <your language> ---
  18. ;(if (= @language "<your-language>")
  19. ;(
  20. ;(if (< (getversion) 38) (set @abort-install "<Abort install>"))
  21. ;(set #Ja <Yes>)
  22. ;(set #Nein <No>)
  23. ;(set #hallo
  24. ;cat (<welcome to the Installation...>
  25. ;))
  26. ;(set #WohinKopieren
  27. ;(cat <Where to copy the main program>
  28. ;))
  29. ;(set #help_WohinKopieren
  30. ;(cat <Help text: Where to copy the main program?>
  31. ;))
  32. ;(set #KopiereHauptprogramm
  33. ;(cat <Displayed while copying the main program>
  34. ;))
  35. ;(set #help_KopiereHauptprogramm
  36. ;(cat <Where the main program is copied to>
  37. ;))
  38. ;(set #PrefsKopieren?
  39. ;(cat (<Want to copy the prefs?>
  40. ;))
  41. ;(set #help_PrefsKopieren?
  42. ;(cat <Help text: What does the preferences editor?>
  43. ;))
  44. ;(set #PrefsWohinKopieren
  45. ;(cat <Where to copy the prefs editor>
  46. ;))
  47. ;(set #help_PrefsWohinKopieren
  48. ;(cat <Help text: Where to copy the prefs editor?>
  49. ;))
  50. ;(set #KopierePrefs
  51. ;(cat <Displayed while copying the prefs editor>
  52. ;))
  53. ;(set #help_KopierePrefs
  54. ;(cat <Where the prefs editor is copied to>
  55. ;))
  56. ;(set #PresetKopieren?
  57. ;(cat <Want an example?>
  58. ;))
  59. ;(set #help_PresetKopieren?
  60. ;(cat <Help text: An example?>
  61. ;))
  62. ;(set #PresetWohinKopieren
  63. ;(cat <Where to copy the example to>
  64. ;))
  65. ;(set #help_PresetWohinKopieren
  66. ;(cat <Help text: Where to copy the example to?>
  67. ;))
  68. ;(set #KopierePreset
  69. ;(cat <Displayed while copying the eample>
  70. ;))
  71. ;(set #help_KopierePreset
  72. ;(cat <Where the example is copied to>
  73. ;))
  74. ;(set #preset-datei
  75. ;(cat "\"<complete path of picture>\" #?                  TILE ;standard picture\n"
  76. ;     "\"<complete path of picture>\" %                   TILE ;workbench window\n"
  77. ;     "\"<complete path of picture>\" \"Workbench Screen\" TILE SCREEN ;screen picture\n"
  78. ;     "\"<complete path of picture>\" \"<Pattern: (),%,#?,|>\" \"<Pattern: (),%,#?,|>\" TILE\n"
  79. ;     ";Copy the line above if you need more pictures\n"
  80. ;))
  81. ;(set #VerändereStart?
  82. ;(cat <Start Background during reboot?>
  83. ;))
  84. ;(set #help_VerändereStart?
  85. ;(cat <Help text: Why should it be started?>
  86. ;))
  87. ;(set #VerändereStart
  88. ;(cat <Displayed while adding entry to user-startup>
  89. ;))
  90. ;(set #help_VerändereStart
  91. ;(cat <Help text: Why am I adding this entry?>
  92. ;))
  93. ;(set #WelcheAnleitungen
  94. ;(cat <Docs?>
  95. ;))
  96. ;(set #help_WelcheAnleitungen
  97. ;(cat <Help text: Guide - AmigaGuide format>
  98. ;     <           ASCII - plain text>
  99. ;     <           experts can install foreign languages>
  100. ;))
  101. ;(set #AnlWohinKopieren
  102. ;(cat <Where to copy the docs to>
  103. ;))
  104. ;(set #help_AnlWohinKopieren
  105. ;(cat <Help text: Guide - AmigaGuide format>
  106. ;     <           ASCII - plain text>
  107. ;     <           experts can install foreign languages>
  108. ;))
  109. ;(set #KopiereAnleitungen
  110. ;(cat <Select docs you need>
  111. ;))
  112. ;(set #help_KopiereAnleitungen
  113. ;(cat <Help text: What is what?>
  114. ;     <           Language markers>
  115. ;))
  116. ;(set #WoSindProc
  117. ;(cat <Installation completed\n>
  118. ;     <Where Background can be found\n>
  119. ;))
  120. ;(set #WoSindPrefs
  121. ;(cat <Where the prefs editor can be found\n>
  122. ;))
  123. ;(set #WoSindPresets
  124. ;(cat <Where the example can be found\n>
  125. ;))
  126. ;(set #WoSindAnl
  127. ;(cat <Where the docs can be found\n>
  128. ;))
  129. ;) ;<your language>
  130.  
  131. ;---cut here -8<--------------------------------------------------------------
  132.  
  133. ;--- Deutsch ---
  134. (if (= @language "deutsch")
  135. (
  136. (if (< (getversion) 38) (set @abort-install "Installation abbrechen"))
  137. (set #Ja "Ja")
  138. (set #Nein "Nein")
  139. (set #hallo
  140.      "Willkommen zur Installation des Verschönerungsprogramms \"Background\"! "
  141. )
  142. (set #WohinKopieren
  143. (cat "Bitte geben Sie die Schublade an, in die das Hauptprogramm \"Background\" "
  144.      "kopiert werden soll. "
  145. ))
  146. (set #help_WohinKopieren
  147. (cat "Sie müssen das Verzeichnis angeben, in das das Hauptprogramm \"Background\" "
  148.      "kopiert werden soll. Dieses Programm muß möglichst früh während des "
  149.      "Startvorgangs ausgeführt werden. Am besten kopieren Sie es in die Schublade "
  150.      "Tools und rufen es in der \"user-startup\" auf. Wenn das nicht möglich ist "
  151.      "kopieren sie es am besten nach WBStartup. "
  152. ))
  153. (set #KopiereHauptprogramm
  154. (cat "Kopiere das Hauptprogramm und sein Piktogramm. "
  155. ))
  156. (set #help_KopiereHauptprogramm
  157. (cat "Momentan wird das Hauptprogramm mitsammt seinem Piktogramm nach %s "
  158.      "kopiert. "
  159. ))
  160. (set #PrefsKopieren?
  161.      "Wollen Sie das Voreinstellungsprogramm auch kopieren? "
  162. )
  163. (set #help_PrefsKopieren?
  164. (cat "Mit Hilfe des Voreinstellungsprogramms können Sie auf einfache Weise "
  165.      "festlegen welches Bild für welches Fenster verwendet werden soll. "
  166.      "Es sollte auf jeden Fall kopiert werden, da das Format der Einstellungsdatei "
  167.      "ziemlich unübersichtlich ist. "
  168. ))
  169. (set #PrefsWohinKopieren
  170. (cat "Bitte geben Sie die Schublade an, in die das Voreinstellungsprogramm "
  171.      "kopiert werden soll. Üblicherweise ist das Prefs. "
  172. ))
  173. (set #help_PrefsWohinKopieren
  174. (cat "Sie müssen das Verzeichnis angeben, in das das Voreinstellungsprogramm "
  175.      "kopiert werden soll. Mit Hilfe dieses Programms legen Sie fest welches "
  176.      "Bild für welches Fenster verwendet werden soll. "
  177. ))
  178. (set #KopierePrefs
  179. (cat "Kopiere das Voreinstellungsprogramm und sein Piktogramm. "
  180. ))
  181. (set #help_KopierePrefs
  182. (cat "Momentan wird das Voreinstellungsprogramm mitsammt seinem Piktogramm "
  183.      "nach %s kopiert. "
  184. ))
  185. (set #PresetKopieren?
  186.      "Wollen Sie eine Beispielkonfiguration erstellen lassen? "
  187. )
  188. (set #help_PresetKopieren?
  189. (cat "Erstellt in einem wählbaren Verzeichnis eine Konfigurationsdatei, die "
  190.      "leicht an ihr System angepaßt werden kann. "
  191. ))
  192. (set #PresetWohinKopieren
  193. (cat "Bitte geben Sie die Schublade an, in die die Beispielkonfiguration "
  194.      "kopiert werden soll. Üblicherweise ist das Prefs/Presets. "
  195. ))
  196. (set #help_PresetWohinKopieren
  197. (cat "Sie müssen das Verzeichnis angeben, in das die Beispielkonfiguration "
  198.      "kopiert werden soll. Diese Datei ist als Vorlage gedacht und muß noch "
  199.      "an ihre persönlichen Bedürfnisse angepaßt werden. "
  200. ))
  201. (set #KopierePreset
  202. (cat "Kopiere die Beispielkonfiguration. "
  203. ))
  204. (set #help_KopierePreset
  205.      "Momentan wird die Beispielkonfiguration nach %s kopiert. "
  206. )
  207. (set #preset-datei
  208. (cat "\"<Vollständiger Pfad des Bildes>\" #?                  TILE ;Standartbild\n"
  209.      "\"<Vollständiger Pfad des Bildes>\" %                   TILE ;Workbenchfenster\n"
  210.      "\"<Vollständiger Pfad des Bildes>\" \"Workbench Screen\" TILE SCREEN ;Screen\n"
  211.      "\"<Vollständiger Pfad des Bildes>\" \"<Muster: (),%,#?,|>\"  \"<Muster: (),%,#?,|>\"TILE\n"
  212.      ";Die vorhergehende Zeile für weitere Bilder verdoppeln\n"
  213. ))
  214. (set #VerändereStart?
  215.      "Soll Background während des Systemstart aufgerufen werden? "
  216. )
  217. (set #help_VerändereStart?
  218. (cat "Background sollte während des Systemstarts, möglicht noch vor loadwb, "
  219.      "aufgerufen werden, da sich so ein lästiger Effekt vermeiden läßt. "
  220.      "(Das schnelle Öffnen und Schließen eines Fensters um die Hintergrundbilder "
  221.      "sichtbar zu machen). "
  222. ))
  223. (set #VerändereStart
  224.      "Füge Aufruf von Background in die user-startup ein. "
  225. )
  226. (set #help_VerändereStart
  227. (cat "Background muß möglichst früh während des systemstarts aufgerufen werden. "
  228.      "Deshalb wird ein Eintrag in die user-startup eingefügt, der Background "
  229.      "noch bevor die Workbench geladen wird aufruft. "
  230. ))
  231. (set #WelcheAnleitungen
  232.      "Welche Anleitungen möchten Sie kopieren? "
  233. )
  234. (set #help_WelcheAnleitungen
  235. (cat "Sie können sich aussuchen welche Anleitungen sie kopieren wollen. "
  236.      "Die Guide-Anleitung können Sie nur verwenden, wenn sie AmigaGuide oder "
  237.      "MultiView besitzen.\n"
  238.      "EXPERTen können auch fremdsprachige Anleitungen kopieren. (Auch wenn mir "
  239.      "nicht klar ist, warum man das tun sollte) "
  240. ))
  241. (set #AnlWohinKopieren
  242.      "In welches Verzeichnis soll die Dokumentation kopiert werden? "
  243. )
  244. (set #help_AnlWohinKopieren
  245. (cat "Wohin wollen Sie die Anleitungen für das Hauptprogramm und das "
  246.      "Voreinstellungsprogramm kopieren?\n"
  247.      "Als EXPERTe können Sie auch fremdsprachige Anleitungen kopieren, sonst "
  248.      "wird immer die Anleitung in der jeweiligen Landessprache kopiert (oder "
  249.      "Englisch, wenn es keine Übersetzung gibt. "
  250. ))
  251. (set #KopiereAnleitungen
  252.      "Welche Anleitungen benötigen Sie? "
  253. )
  254. (set #help_KopiereAnleitungen
  255. (cat "Wählen Sie diejenige Anleitung aus, die für Sie in Frage kommt. Die "
  256.      "Anleitungen für das Hauptprogramm beginnen alle mit \"Background\", "
  257.      "die für das Voreinstellungsprogramm mit \"BackPrefs\".\n"
  258.      "ASCII bedeutet reinen Text, Guide ein AmigaGuide Dokument. "
  259. ))
  260. (set #WoSindProc
  261. (cat "Installation abgeschlossen!\n"
  262.      "\"Background\" finden Sie nun in Ihrer Schublade (oder "
  263.      "Partition) \"%s\"\n"
  264. ))
  265. (set #WoSindPrefs
  266. (cat "Das Voreinstellungsprogramm finden Sie nun in Ihrer Schublade (oder "
  267.      "Partition) \"%s\"\n"
  268. ))
  269. (set #WoSindPresets
  270. (cat "Die Beispielkonfiguration finden Sie nun in Ihrer Schublade (oder "
  271.      "Partition) \"%s\"\n"
  272. ))
  273. (set #WoSindAnl
  274.      "Die Dokumentation finden Sie nun in Ihrer Schublade (oder Partition) \"%s\"\n"
  275. )
  276. ) ;Deutsch
  277.  
  278. ;----- insert here -----------------------------------------------------------
  279.  
  280. ;--- English ---
  281. (
  282. (set @language "english")
  283. (set #Ja "Yes")
  284. (set #Nein "No")
  285. (set #hallo
  286.      "Welcome to the installation utility for \"Background\"! "
  287. )
  288. (set #WohinKopieren
  289. (cat "Please choose a drawer where you want the main-program \"Background\" "
  290.      "to be copied to. "
  291. ))
  292. (set #help_WohinKopieren
  293. (cat "You must select a drawer to which the main-program \"Background\" should "
  294.      "be copied. This program must be started as early as possible during "
  295.      "system reboot. It's best to copy it to the Tools drawer and call it within "
  296.      "the \"user-startup\". If this isn't possible copy the programm to WBStartup. "
  297. ))
  298. (set #KopiereHauptprogramm
  299. (cat "Copying the main-program and its icon. "
  300. ))
  301. (set #help_KopiereHauptprogramm
  302.      "Currently the main-program and its icon are copied to %s. "
  303. )
  304. (set #PrefsKopieren?
  305.      "Do you want to also copy the preferences editor? "
  306. )
  307. (set #help_PrefsKopieren?
  308. (cat "Using the preferences editor you can easily define which picture should "
  309.      "be used for a window. You should allways copy it, because the file it "
  310.      "creates for you has a rather _strange_ layout. ;-)"
  311. ))
  312. (set #PrefsWohinKopieren
  313. (cat "Please select a drawer which the preferences editor should be copied "
  314.      "to. Usualy this would be Prefs. "
  315. ))
  316. (set #help_PrefsWohinKopieren
  317. (cat "You must choose the drawer to which the preferences editor should be copied. "
  318.      "This program is used to define which picture is to use for a window. "
  319. ))
  320. (set #KopierePrefs
  321. (cat "Copying the preferences editor and its icon... "
  322. ))
  323. (set #help_KopierePrefs
  324.      "Currently the preferences editor and its icon are copied to %s. "
  325. )
  326. (set #PresetKopieren?
  327.      "Do you want the example configuration to be created? "
  328. )
  329. (set #help_PresetKopieren?
  330. (cat "A configuration file, that is easy to adapt to your own wishes, will "
  331.      "be created in a definable drawer. "
  332. ))
  333. (set #PresetWohinKopieren
  334. (cat "Please choose a drawer where the example configuration will be stored. "
  335.      "Usualy this would be Prefs/Presets. "
  336. ))
  337. (set #help_PresetWohinKopieren
  338. (cat "You must select a drawer to which the example configuration should be "
  339.      "copied to. This file is a template that needs to be adapted to your "
  340.      "personal requirements. "
  341. ))
  342. (set #KopierePreset
  343. (cat "Copying the example configuration... "
  344. ))
  345. (set #help_KopierePreset
  346.      "Currently the example configuration is copied to %s. "
  347. )
  348. (set #preset-datei
  349. (cat "\"<complete path of picture>\" #?                  TILE ;standard picture\n"
  350.      "\"<complete path of picture>\" %                   TILE ;workbench window\n"
  351.      "\"<complete path of picture>\" \"Workbench Screen\" TILE SCREEN ;screen picture\n"
  352.      "\"<complete path of picture>\" \"<Pattern: (),%,#?,|>\" \"<Pattern: (),%,#?,|>\" TILE\n"
  353.      ";Copy the line above if you need more pictures\n"
  354. ))
  355. (set #VerändereStart?
  356.      "Should Background be called uppon reset? "
  357. )
  358. (set #help_VerändereStart?
  359. (cat "Background should be started during system reboot, if possibly before "
  360.      "workbench is loaded, to avoid an annoying effect. "
  361.      "(Fast opening and closing a window to make the pictures visible) "
  362. ))
  363. (set #VerändereStart
  364.      "Adding background to the user-startup... "
  365. )
  366. (set #help_VerändereStart
  367. (cat "Background must be started as early as possibly during system reboot. "
  368.      "Because of this an entry is added to the user-startup that calls Background "
  369.      "even before workbench is loaded. "
  370. ))
  371. (set #WelcheAnleitungen
  372.      "Which docs do you need? "
  373. )
  374. (set #help_WelcheAnleitungen
  375. (cat "You can choose which docs you need. The Guide docs are only usable if "
  376.      "you own AmigaGuide or MultiView.\n"
  377.      "EXPERTs are also allowed to copy foreign language docs. (Also "
  378.      "I don't know why you should do this) "
  379. ))
  380. (set #AnlWohinKopieren
  381.      "Where should the docs be copied to? "
  382. )
  383. (set #help_AnlWohinKopieren
  384. (cat "Where do you want to copy the docs for the main-program and the preferences "
  385.      "editor?\n"
  386.      "As an EXPERT you are allowed to copy foreign language docs, otherwise "
  387.      "the doc in your own language is copied (or English if there's no translation). "
  388. ))
  389. (set #KopiereAnleitungen
  390.      "Which docs do you need? "
  391. )
  392. (set #help_KopiereAnleitungen
  393. (cat "Choose the docs that are in your language. The docs for the main-program "
  394.      "all start with \"Background\", the ones for the preferences editor with "
  395.      "\"BackPrefs\".\n"
  396.      "ASCII means plain, Guide an AmigaGuide document. "
  397. ))
  398. (set #WoSindProc
  399. (cat "Installation cpompleted!\n"
  400.      "\"Background\" can be found in %s drawer (or partition).\n"
  401. ))
  402. (set #WoSindPrefs
  403.      "The preferences editor can be found in your %s drawer (or partition).\n"
  404. )
  405. (set #WoSindPresets
  406.      "The example configuration can be found in your %s drawer (or partition).\n"
  407. )
  408. (set #WoSindAnl
  409.      "The docs can be found in your %s drawer (or partition).\n"
  410. )
  411. )) ;English
  412.  
  413. ;-----------------------------------------------------------------------------
  414. ;Begrüßung
  415. (welcome #hallo)
  416. (complete 0)
  417.  
  418. ;Wohin kopieren?
  419. (if @user-level
  420.    (set @default-dest
  421.       (askdir
  422.          (prompt #WohinKopieren)
  423.          (help #help_WohinKopieren)
  424.          (default
  425.             (if (exists (tackon @default-dest "Tools") (noreq))
  426.                (tackon @default-dest "Tools")
  427.                (if (exists (tackon @default-dest "WBStartup") (noreq))
  428.                   (tackon @default-dest "WBStartup")
  429.                   (cat @default-dest "") ;Keins von oben passt
  430.                ) ;das untere if
  431.             ) ;das obere if
  432.          ) ;default
  433.       ) ;askdir
  434.    ) ;set
  435.    (set @default-dest (tackon @default-dest "Tools"))
  436. ) ;if user
  437. (complete 10)
  438.  
  439. ;Hauptprogramm kopieren
  440. (copyfiles (prompt #KopiereHauptprogramm)
  441.            (help (#help_KopiereHauptprogramm @default-dest))
  442.            (source "Background")
  443.            (dest @default-dest)
  444.            (infos)
  445.            (noposition)
  446.            (optional "force" "askuser")
  447. ) ;copyfiles
  448. (complete 20)
  449.  
  450. ;------------------------------------------------------------------------------
  451.  
  452. ;Auch das Prefs-Programm kopieren?
  453. (set #prefs-dest "Sys:Prefs")
  454. (if (= @user-level 2)
  455.    (set #copy-prefs (askbool (prompt #PrefsKopieren?) (help #help_PrefsKopieren?) (choices #Ja #Nein)))
  456.    (set #copy-prefs 1)
  457. ) ;Nur für Experten
  458. (if #copy-prefs
  459. ;Wohin damit?
  460.    (((if @user-level
  461.       (set #prefs-dest
  462.          (askdir
  463.             (prompt #PrefsWohinKopieren)
  464.             (help #help_PrefsWohinKopieren)
  465.             (default
  466.                (if (exists (tackon (cat (getdevice @default-dest) ":") "Prefs") (noreq))
  467.                   (tackon (cat (getdevice @default-dest) ":") "Prefs")
  468.                   (cat @default-dest "")
  469.                ) ;das obere if
  470.             ) ;default
  471.          ) ;askdir
  472.       ) ;set
  473.       (set #prefs-dest (tackon (cat (getdevice @default-dest) ":") "Prefs"))
  474.    (complete 30))) ;if user
  475. ;Prefs-Programm kopieren
  476.    ((copyfiles (prompt #KopierePrefs)
  477.               (help (#help_KopierePrefs #prefs-dest))
  478.               (source "Prefs/Background")
  479.               (dest #prefs-dest)
  480.               (infos)
  481.               (noposition)
  482.               (optional "force" "askuser"))
  483.    ) ;copyfiles
  484.    (complete 40))
  485. ) ;if KopierePrefs?
  486.  
  487. ;Preset kopieren
  488. (if (= @user-level 2)
  489.    (set #copy-preset (askbool (prompt #PresetKopieren?) (help #help_PresetKopieren?) (default 1) (choices #Ja #Nein)))
  490.    (set #copy-preset 1)
  491. ) ;Nur Experten dürfen wählen
  492. (complete 50)
  493.  
  494. (if #copy-preset
  495. ;Wohin damit?
  496.    ((set #preset-dest
  497.       (if @user-level
  498.          (askdir
  499.             (prompt #PresetWohinKopieren)
  500.             (help #help_PresetWohinKopieren)
  501.             (default
  502.                (if #copy-prefs
  503.                   (
  504.                      (if (exists (tackon #prefs-dest "Presets") (noreq))
  505.                         (tackon #prefs-dest "Presets")
  506.                         (if (= (exists "ENVARC:" (noreq)) 2)
  507.                            (cat "ENVARC:" "")
  508.                            (cat @default-dest "")
  509.                         ) ;if ENV:
  510.                      ) ;if Presets
  511.                   )
  512.                   (
  513.                      (if (= (exists "ENVARC:" (noreq)) 2)
  514.                         (cat "ENVARC:" "")
  515.                         (cat @default-dest "")
  516.                      ) ;if ENV:
  517.                   )
  518.                ) ;if copyprefs
  519.             ) ;default
  520.          ) ;askdir
  521.          (tackon #prefs-dest "Presets")
  522.       ) ;if user
  523.    ) ;set preset-dest
  524. ;Preset erstellen
  525.    (textfile
  526.       (prompt #KopierePreset)
  527.       (help #help_KopierePreset #preset-dest)
  528.       (dest (tackon #preset-dest "background.conf"))
  529.       (append #preset-datei)
  530.    ) ;textfile
  531.    (copyfiles
  532.       (prompt #KopierePreset)
  533.       (help #help_KopierePreset #preset-dest)
  534.       (dest #preset-dest)
  535.       (source "Prefs/Presets/Background.conf.info")
  536.       (optional "force" "askuser")
  537.    )) ;copyfiles (Icon)
  538. ) ;if KopierePreset?
  539. (complete 60)
  540.  
  541.  
  542. ;------------------------------------------------------------------------------
  543.  
  544. ;Automatisch starten?
  545. (if @user-level
  546.    (if (patmatch "#?WBStartup(%|/)" @default-dest)
  547.       (set #auto-start 0)
  548.       (set #auto-start (askbool (prompt #VerändereStart?) (help #help_VerändereStart?) (default 1) (choices #Ja #Nein)))
  549.    ) ;if NOT
  550.    (set #auto-start 1)
  551. ) ;if @user-level
  552. ;startup-sequence ändern
  553. (if #auto-start
  554.    (startup
  555.       @app-name
  556.       (prompt #VerändereStart)
  557.       (help #help_VerändereStart)
  558.       (command (tackon @default-dest "Background NOSCAN OPENWBENCH"))
  559.    ) ;startup
  560. ) ;if auto-start
  561. (complete 70)
  562.  
  563. ;------------------------------------------------------------------------------
  564.  
  565. ;Welche Anleitungen kopieren?
  566. (if @user-level
  567.    (set #docs-dest
  568.          (askdir
  569.             (prompt #AnlWohinKopieren)
  570.             (help #help_AnlWohinKopieren)
  571.             (default @default-dest)
  572.          ) ;askdir
  573.    ) ;set
  574.    (set #docs-dest @default-dest)
  575. ) ;if @user-level
  576. (complete 80)
  577. ;Anleitungen kopieren
  578. (copyfiles
  579.    (prompt #KopiereAnleitungen)
  580.    (help #help_KopiereAnleitungen)
  581.    (dest #docs-dest)
  582.    (source "Docs/")
  583.    (if (= @user-level 2) (all) (pattern ("(Background|BackPrefs).(guide|doc).%s" @language)))
  584.    (infos)
  585.    (noposition)
  586.    (optional "force" "askuser")
  587.    (confirm)
  588. ) ;copyfiles (Anleitung)
  589. (complete 100)
  590.  
  591. (exit
  592.    (#WoSindProc @default-dest)
  593.    (if #copy-prefs (#WoSindPrefs #prefs-dest))
  594.    (if #copy-preset (#WoSindPresets #preset-dest))
  595.    (#WoSindAnl #docs-dest)
  596.    (quiet)
  597. ) ; exit
  598.